*******************************************************
* Lyle 05 Jan 11: 						              *
*	-this program serves as a base shell for all	  *
*	 stata do files					                  *
*******************************************************


********************************
* Standard Stata Configuration *
********************************
clear all
set mem 999m
capture log close
set logtype text
cap cd "C:\Users\ejm5\Google Drive\2016_Research\Unemployment_MILEX"
cap cd "C:\Users\Jordan.Becker\Desktop\GD\2016_Research\Unemployment_MILEX"
cap cd "\\usnatonetapp01.eur.state.sbu\profiles\beckerjm\Desktop\2016_Research\Unemployment_MILEX"
log using "log\correlates_figure6.log", replace


*********************
* Prepare Variables *
*********************
use "dta\2016_02_09_uem", clear
sort ccode year
xtset ccode year


********************
* Analyze the Data *
********************
set more off
sort ccode year
xtset ccode year


*Figure 6: Bar Graph for NATO Europe With Disaggregated MILEX Dollars by Year*
#delimit;
preserve;
keep if year>=1985;
graph bar europe_equipment europe_personnel europe_operating europe_infrastructure, over(year, label(labcolor(black) 
angle(forty_five) labsize(vsmall))) stack  
ytitle("MILEX (Billion 2014 USD), by Mil. Category (Non-U.S. NATO)", size(vsmall) margin(medium)) legend(rows(1) position(6)  size(vsmall) 
label (1 "Equipment") label (2 "Personnel") label (3 "O&M")  label (4 "Infrastructure")) ysize (10) ylab(0(20)340, angle(forty_five) labsize(vsmall));
graph save output\Figure6disagg_europe.gph, replace;
restore;
